0 PRINT"[147]"
1 X=RND(-TI)
2 GOTO100
3 REM GOTO130:REM UNREM IF UNPACKED
4 REM INTRO 1
5 V=53248:S=54272:POKE53272,31
6 GOSUB1530:SYS49435:POKE781,0:POKE782,136:SYS49458:POKE49152,7
7 DIM AC(8):FORI=1TO8:AC(I)=.:NEXTI
8 DIMSN(7):FORI=1TO7:READSN(I):NEXTI
9 DATA11,13,14,15,14,13,11
10 DIMC(6):FORI=1TO6:READC(I):NEXT
11 DATA 7,5,10,12,14,15
12 FORI=1TO8:K=I:K=K-1:K=K*2:POKEV+1+K,255:POKE2040+I-1,11:NEXTI
13 POKEV+21,255:POKEV+37,7:POKEV+38,11:POKEV+28,255:POKEV+29,0:POKEV+23,0
14 C$="[154][159][154][144]":FORI=1TO3:GOSUB40:NEXTI:GOSUB16:FORI=4TO6:GOSUB40:NEXTI:GOTO60
15 REM MAIN LOOP
16 FORI=1TO5:IFAC(I)<>.THEN18
17 R=INT(RND(1)*2)+1:IFR=2THENAC(I)=1:K=I:K=K-1:K=K*2:GOSUB23
18 IFAC(I)=.THEN21
19 K=I:B=AC(K):POKE2040+K-1,SN(B):AC(K)=AC(K)+1
20 IFAC(K)>7THENAC(K)=0:B=K-1:B=B*2:POKEV+1+B,255
21 NEXTI:Z=Z+1:IFZ>32THENGOSUB85:RETURN
22 GOTO16:REM CHOOSE RANDOM X Y COLOR
23 X=INT(RND(1)*155)+1:Y=INT(RND(1)*28)+1:X=X+100:Y=Y+112:POKEV+.+K,X
24 POKEV+1+K,Y:R=INT(RND(1)*6)+1:POKEV+39+K,C(R):RETURN
40 REM LOADSTAR PRESENTS
41 PRINTMID$(C$,I,1):GOSUB45:RETURN
45 FORW=1TO35:NEXTW
46 PRINT"LOADSTAR PRESENTS"
47 FORW=1TO35:NEXTW:RETURN
50 RETURN
55 REM INTRO PART 2
60 Z=.:FORW=1TO800:NEXTW
61 FORI=1TO3:GOSUB66:NEXTI:GOSUB16:FORI=4TO6:GOSUB66:NEXTI:GOTO80
66 PRINTMID$(C$,I,1):GOSUB69:RETURN
69 FORW=1TO35:NEXTW
70 PRINT"A"
71 PRINT"RICHARD J. DEROCHER"
72 PRINT"PRODUCTION"
73 FORW=1TO35:NEXTW:RETURN
80 GOTO190
84 REM MOVE SPRITES OFF SCREEN
85 FORI=1TO8:K=I:K=K-1:K=K*2:POKEV+1+K,255:POKE2040+I-1,11:NEXTI:RETURN
100 DV=PEEK(186):IF DV<8 THEN DV=8
110 PRINT"[147]":Z5=0:SB=53265:S1=11:S2=27
120 POKE 53280,0:POKE 53281,0:PRINT CHR$(14):PRINT CHR$(8):GOTO3
130 SYS57812"SM MUSIC PLAYER",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
140 SYS57812"SM FONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
150 F$="ETAL.MUX"
160 SYS57812F$,DV,0:POKE780,0:POKE781,0:POKE782,132:SYS65493
170 F$="HOLST.MUX":SYS57812F$,DV,0:POKE780,0:POKE781,0:POKE782,136:SYS65493
175 SYS57812"SM SPRITES",DV,0:POKE780,0:POKE781,64:POKE782,3:SYS65493
177 SYS57812"SM SPRITE",DV,0:POKE780,0:POKE781,192:POKE782,2:SYS65493:GOTO5
180 REM INTRO PART 2
190 PRINTCHR$(14)
200 REM GOSUB1530:SYS49435:POKE781,0:POKE782,136:SYS49458:POKE49152,7
210 FORW=1TO1000:NEXTW:PRINT"[147][159]WHO KNOWS WHAT EVIL LURKS"
220 PRINTSPC(7)"IN THE HEART OF THE CITY?"
230 FORW=1TO3000:NEXTW
240 PRINTSPC(6)"SAMMY MARLO DOESN'T KNOW..."
250 FORW=1TO2000:NEXTW
260 PRINTSPC(6)"BUT HE'LL MAKE A GOOD GUESS"
270 PRINTSPC(7)"IF THE PRICE IS RIGHT..."
280 FORW=1TO4000:NEXTW
290 POKE49152,0:POKE54276,0:POKE54283,0:POKE54290,0:SYS49629
300 PRINT"[147]"
310 GOSUB1530:SYS49435:POKE781,0:POKE782,132:SYS49458:POKE49152,7:GOSUB1550
320 T=TI+2320:POKE 198,0
330 KB=PEEK(198)
340 IF KB<>0 GOTO 370
350 IF T<TI THEN GOTO 370
360 GOTO 330
370 REM CREDITS
380 POKE198,0:GOSUB1190
390 PRINT TAB(17)"GAME BY"
400 PRINT TAB(11)"RICHARD J. DEROCHER"
410 GOSUB620:IFZ5=1THEN570
420 GOSUB880:PRINT"":PRINT TAB(26)"WRITTEN WITH"
430 PRINT TAB(24)"QUEST WRITER BY"
440 PRINT TAB(26)"[145]JON MATTSON"
450 GOSUB620:IFZ5=1THEN570
460 GOSUB1370:PRINTTAB(13)"TITLE MUSIC BY"
470 PRINT TAB(14)"HARRY BRATT"
480 GOSUB620:IFZ5=1THEN570
490 GOSUB660:PRINT TAB(11)"TITLE PICTURES BY"
500 PRINT TAB(10)"CHERYL DE BOISSIERE"
510 POKE 53265,27
520 T=T+2670:POKE 198,0
530 KB=PEEK(198)
540 IF KB<>0 THEN GOTO 570
550 IF T<TI THEN GOTO 570
560 GOTO 530
570 POKE49152,0:POKE54276,0:POKE54283,0:POKE54290,0:SYS49629
580 PRINT"[147]":PRINTCHR$(14):POKE 214,12:POKE 211,15:SYS 58732
590 POKE53272,20:PRINT "[159]LOADING..."
600 GOSUB1810
610 :REM WAIT SUB
620 FORW=1TO1000
630 KB=PEEK(198)
640 IFKB<>0THENZ5=1:W=7000
650 NEXTW:RETURN
660 REM ROOM
670 POKESB,S1:PRINT"[147][152]    [181]   [167][207][196][192][198][185][187]                   [180]   ";
680 PRINT"      [181][146][176][192][192][174][180][160][160][160][160][181]                   [180] ";
690 PRINT"        [181][146][221]  [161][180]    [181]                   ";
700 PRINT"[180]         [181][146][221]  [161][180]    [181]                 ";
710 PRINT"  [180]         [181][146][221]  [161][180]    [181]               ";
720 PRINT"    [180]         [181][146][221]  [161][180][187]   [181]             ";
730 PRINT"      [180]         [181][146][221]  [161][180][181]   [181]           ";
740 PRINT"        [180]         [181][146][221]  [161][180][161]   [181]         ";
750 PRINT"          [180]         [181][146][221]  [161][180][181]   [181]       ";
760 PRINT"            [180]         [181][146][221]  [161][180][190]   [181]     ";
770 PRINT"              [180]         [181][146][221]  [161][180]    [181]   ";
780 PRINT"                [180]         [181][146][221]  [161][180]    [181] ";
790 PRINT"                  [180]         [181][146][221][164][164][152][161][180]  ";
800 PRINT"  [181]                   [180]         [181][146][221]  [152]";
810 PRINT"[161][180]    [181]                   [180]         [181][146][221]";
820 PRINT"  [152][161][180]    [181]                   [180]         ";
830 PRINT"[181][146][221]  [152][161][165]    [181]                   [180]     ";
840 PRINT"   [146][169][169]   [152][146][188][185][162][146][184][183][163][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]";
850 PRINT"[162][187][152][223]       [146][169][169]                       ";
860 PRINT"       [223][152][146][223]     [146][169][169]                  ";
870 PRINT"              [223][152][146][223]   [146][155]":POKESB,S2:RETURN
880 REM SLICK GUY
890 POKESB,S1:PRINT"[147]      [151][162][184][184][184][184][183][183][183][184][146][162][187][159] [155] ";
900 PRINT"      [159]                   [151][184]           ";
910 PRINT" [188][155][146]       [159]                  [152][190] [151]     ";
920 PRINT"     [185][185] [188][155][146]      [159]                [152][172][151][172][150]";
930 PRINT"[146][172][152][185] [164][151][172][150][184][184][184][151][187]     [191][152][146][172][188][155][146]      [159]    ";
940 PRINT"           [152] [167][150][185][162][146] [163][163]    [151][146][188][185][150][146][172][184][184][152][146]";
950 PRINT"[172]  [155][146]        [159]            [156] [152] [167][129]  [150][146][162]";
960 PRINT"[151] [150]      [162][146][190][129][184][184][146] [150] [152] [188][155][146]     [159]      ";
970 PRINT"        [150] [151] [152][172][129] [162] [146][162][151] [150][188]    [146][172][129][190]  [146] ";
980 PRINT" [150][187][152] [151][146][161][155]     [159]             [150] [151] [129][146][182] ";
990 PRINT"[188][146][187][162][175] [146][191]  [150]  [129] [162][146]   [150][188][151] [146][181][155]     [159]   ";
1000 PRINT"          [150] [152] [129][146][182][150] [182][182][146] [161][129][190][190][146] [188] [172][146] ";
1010 PRINT"[182][146] [161][129]  [151] [146][180][155]     [159]             [150] [152]";
1020 PRINT" [182][150]  [183][183][183] [129] [146][161] [188]       [152] [146][180] [155]    [159]    ";
1030 PRINT"        [150]  [152][188][182][150]  [146][191]  [129] [150] [129][146][161]    [172]  [146] ";
1040 PRINT"[170][152] [146]  [155]   [159]             [150]     [146][191]  ";
1050 PRINT" [172][187][129][188][146] [172]  [150] [129] [172][146] [170]    [155]   [159]          ";
1060 PRINT" [150]    [170][170] [172][146][190][129][187][162]  [146]  [191] [188] [146]  [170]    [155]  ";
1070 PRINT"[159]             [150]   [182][182] [129][146][162] [188][146][188][187] [146]      ";
1080 PRINT"   [187]   [155]  [159]              [150]  [161]  [129] [150]  [129]";
1090 PRINT" [146][187][162][146]  [187]      [180]   [155]    [159]            [150]";
1100 PRINT"  [161]    [129][187]    [146][187]   [129][191][155][146]  [167]    [155]  [159]  ";
1110 PRINT"             [150]      [146] [162][162][162][162][155][162][162]  [155]   ";
1120 PRINT"[180][146]    [155]  [159]                [156] [150][188]  [129]  [155][146]";
1130 PRINT" [162][175][175][155][185][146][190]    [190][146][190]    [155]  [159]           ";
1140 PRINT"       [150][188][129]   [170][162][162][162][155][162][146]    [190][146][190]     [155] ";
1150 PRINT" [159]                   [150][188]    [129]   [146][190] [150] [190]";
1160 PRINT"[146][190]      [155]  [159]                  [155]  [150][188]   ";
1170 PRINT"   [146]  [191][146]        [155]  [159]                ";
1180 PRINT" [155]     [150][183][184][184][184][184][184][184][155]":POKESB,S2:RETURN
1190 REM CITY SCAPE 2
1200 POKESB,S1:PRINT"[147]                                        ";
1210 PRINT"                                        ";
1220 PRINT"                 +           [146]  [182]      ";
1230 PRINT"+       +                 [146]    [146][190]   [187] ";
1240 PRINT"                              [146]    [146]   ";
1250 PRINT"                               + [154][146]   ";
1260 PRINT" [146] [154]        [146]    [161]           +     [146]";
1270 PRINT"    [172][146]   [154]   [154]   [154]    [146]   [155] [161][146]  ";
1280 PRINT"               [146]            [154]     [146][190][155] ";
1290 PRINT"   [161][151][146]  [154]              [146][161]     [151]   ";
1300 PRINT"  [154]  [154]  [154]   [146]    [155]  [151]    +    [146][184][184]";
1310 PRINT"     [146][161]    [151]             [146]  [155]    [152]  [154]";
1320 PRINT"      [146]   [154]     [146][161]    [151]         [154] ";
1330 PRINT"      [155]         [146][190]      [146]   [146][161]      ";
1340 PRINT"    [154] [155]         [154] [151] [155]   [154]    [146]     ";
1350 PRINT"[154] [146]   [154] [146]  [154]              [155]     [154]";
1360 PRINT" [151]   [160][154]  [146]           [154] [146][155]":POKESB,S2:RETURN
1370 :REM GIRL
1380 POKESB,S1:PRINT"[147][155]               [129]   [162][162][185][175]  [155]            ";
1390 PRINT"                  [129]   [190] [183][184][190][188][146][187][155]        ";
1400 PRINT"                      [129]  [190][172][164][146][190][150][184][146][187][129][172][172]";
1410 PRINT"[146][187][155]                            [150] [129]  [191][170][150]";
1420 PRINT"[146][162] [146][162][167][129][165][161] [155][146]                          ";
1430 PRINT"  [150] [129]  [181][170][150] [175] [146][161][129][187][191][188][155][146]                 ";
1440 PRINT"            [129] [172][190][188][150][187] [172][129][190][190][182][146][161][187][155]          ";
1450 PRINT"                  [129]  [191] [146][187][150][184][146][187][129][165][146][191][188][146][190]";
1460 PRINT"[172][155][146]                       [150] [155]   [129]  [169][129]";
1470 PRINT"[190][146][172][150][190]  [163][146][187][223][129] [146][190][155]                   ";
1480 PRINT"      [155]  [129] [167][167]       [181][129][146][172][190][155]       ";
1490 PRINT"                  [150] [155] [129] [150][182] [146][223]     [146]";
1500 PRINT"[169][150][190][146] [155]                           [150] [155] [150][182]";
1510 PRINT" [129][146] [207][183][183][183][208][146][150][170] [155][146]       ":POKESB,S2:RETURN
1520 REM CLEAR SID CHIP
1530 FORI=0TO24:POKEI+54272,0:NEXT:RETURN
1540 REM CITY SCAPE
1550 POKESB,S1:PRINT"[147]                [150]       [154]            ";
1560 PRINT"    [150]  [151][164][164]          [150]  [151] [150]   [151] [154]  [151] [154] ";
1570 PRINT"  [151]      [151]       [150] [161] [151][167][205]        [150]    ";
1580 PRINT"  [151] [154]      [151] [154]    [151]    [151]     [150] [161][158] [151]";
1590 PRINT"[146][167] [205]      [150] [151] [150]     [154] [150] [154]             [151]";
1600 PRINT"   [151]   [150] [161] [151][167][158][188] [151][205]      [150]       [154]    ";
1610 PRINT"    [154]        [151]  [206] [150] [161] [151][167][158][188]  [151][205]   [149]  ";
1620 PRINT"                        [151][206][158][162] [150] [161] [151][167] [158]";
1630 PRINT"[188][188][151][167]       [150] [149]          [151]       [151] [149][185][185][151][206]";
1640 PRINT" [158][162][146]  [161][158] [151][146][167][158][188] [188][151][167][149]     [129]   [149]    [162][162][162]";
1650 PRINT"[162][162][162][162][162]  [184][184][184]   [158][146][172]  [146] [150] [161][158][162][151][167][158][188]  [151][167][149] ";
1660 PRINT"[146][185][185]    [185][185][185][185][185][185][185][129]   [149][184][184][184][184][184]      [158][146][172]   [150] ";
1670 PRINT"[161][158][162][151][146][167]  [158][188][151][167][149][162] [146][184][184][184][184][184][184][184][184]            ";
1680 PRINT"  [172][158][146]![149][187] [151][146]  [158][162] [150] [161] [151][167][158][188]  [151][167][158].[149]    ";
1690 PRINT"           [158][146] :::[129]    [146] [158]::[129] [158][146][188] [162][146]";
1700 PRINT" [150] [161][158] [151][146][167]   [151][167][158].[129]        [162][162][162][162][162][162] [158][146]::";
1710 PRINT"::[129] [158][146]::[129] [158][146]:[152]  [129] [158][146][188]  [146] [150] [161]     ";
1720 PRINT"[151][167] [129]       [158][146][168]::[129][192][158][146]: [168][129] [158][146]:: :[129] [152][146] ";
1730 PRINT"[158]:[129] [158][146]:  [129] [158][146][172]   [150]       [151][167][158].[129] [146]  ";
1740 PRINT"[152][146] [158] [152] [129] [158][146][168] :[192][158][146]::[168][162][158]::::[182][152][146]   ";
1750 PRINT"[158][146]: : [158][146][172] [162] [150] [161]     [151][167][158]. [155][146]  [155][146]";
1760 PRINT" [158] [155] [175][158][146][168]::[192][158][146]::[168][196][158][146]: ::[182][158][146]: [198]";
1770 PRINT"[155][146]  [155]  [158][146][167] [158][178][146] [150]                 ";
1780 PRINT"                   [158][172] [162] [150]             ";
1790 PRINT"                       [158][172] [162][146][155]"
1800 PRINTTAB(8)"THE RETURN OF SAMMY MARLO":POKESB,S2:RETURN
1810 PRINT"[144]LOAD"CHR$(34)"QUESTREADER"CHR$(34)",8,1"
1820 PRINT"RUN"
1830 POKE631,13:POKE632,13:POKE198,2
1840 END
10000 OPEN1,8,15,"I0":CLOSE1:N$="SAMMY TITLE"
10010 OPEN1,8,15,"S0:"+N$:CLOSE1:SAVEN$,8:END